Glossary Item Box
Set Query = ThisApplication.Queries("QUERY_ID") Set Sheet = Query.Sheet ThisApplication.Shell.ListInitialize Sheet